home *** CD-ROM | disk | FTP | other *** search
/ Revolution - Das Atari CD Magazin 1997 / Revolution - Das Atari CD Magazin 1.iso / software / anwendng / utility / gemlabel / module.prj / stc.gfa / load.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1996-07-21  |  1KB  |  43 lines
  1. '
  2. ' Startupcode für ein GEMLABEL-Load-Modul
  3. '
  4. info$="GLBLMODLLOAD Modulbeschreibung ¯"
  5. cmd$=""
  6. cmdl#=PEEK(BASEPAGE+128)
  7. IF cmdl#<>0 THEN
  8.   FOR i%=1 TO cmdl#
  9.     cmd$=cmd$+CHR$(PEEK(BASEPAGE+128+i%))
  10.   NEXT i%
  11.   IF LEFT$(cmd$,4)="GLML" THEN
  12.     file$=RIGHT$(cmd$,cmdl#-4)
  13.     @modul
  14.   ELSE
  15.     IF LEFT$(cmd$,3)="GLM" THEN
  16.       ALERT 1," | Dies ist ein | GEMLABEL-Load-Modul ! ",1,"Abbruch",but#
  17.     ELSE
  18.       @glm_mod
  19.     ENDIF
  20.   ENDIF
  21. ELSE
  22.   @glm_mod
  23. ENDIF
  24. END
  25. PROCEDURE glm_mod
  26.   PRINT CHR$(13);CHR$(10);
  27.   PRINT " Modulname, Version, Datum                 "
  28.   PRINT " Written by Ihr Name                       "
  29.   PRINT
  30.   PRINT " Dies ist ein Modul für GEMLABEL und       "
  31.   PRINT " Copyrighthinweis oder FREEWARE/SHAREWARE  "
  32.   PRINT " Es kann nur von GEMLABEL gestartet werden "
  33.   PRINT
  34.   PRINT " GEMLABEL written 1995 by Volker Janzen    "
  35.   PRINT
  36.   PRINT " -Taste-                                   "
  37.   REPEAT
  38.   UNTIL LEN(INKEY$)
  39. RETURN
  40. PROCEDURE modul
  41.   ' Hier steht die Routine von ihrem Modul
  42. RETURN
  43.